home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #1 / 1999 CD 1 (black).iso / Fisher-Price / Crane.dcr / shared_9_Movie Jumpout Script.ls < prev    next >
Encoding:
Text File  |  1998-08-17  |  743 b   |  24 lines
  1. on exitFrame
  2.   global GoMovieFrame, GoMovieName, Gwaitscreenlist
  3.   case GoMovieName of
  4.     "blast", "crane", "gasmenu":
  5.       set GoMovieFrame to "JumpFrame." & GoMovieName
  6.       set LeaveFrame to "leaveFrame." & GoMovieName
  7.     otherwise:
  8.       if voidp(Gwaitscreenlist) then
  9.         set Gwaitscreenlist to [1, 2, 3, 4, 5, 7, 8]
  10.       end if
  11.       set c to count(Gwaitscreenlist)
  12.       if c = 0 then
  13.         set Gwaitscreenlist to [1, 2, 3, 4, 5, 7, 8]
  14.         set c to 8
  15.       end if
  16.       set mypick to random(c)
  17.       set mypicknum to getAt(Gwaitscreenlist, mypick)
  18.       deleteAt(Gwaitscreenlist, mypick)
  19.       set GoMovieFrame to "JumpFrame." & mypicknum
  20.       set LeaveFrame to "leaveFrame." & mypicknum
  21.   end case
  22.   go(LeaveFrame)
  23. end
  24.